ȡֵַĵʼкźֹк 

Sub test()
    On Error Resume Next 'ûһҲҪҵݣͻʾ󡪡һ䣬鲻ûκʾ
    
    'ָвĳַһγֵкšֵкšʼк=кţ˵ֻ1
    MsgBox ActiveSheet.Columns(1).Find(what:="", lookat:=xlWhole).Row, , "ʼкţ"
    MsgBox ActiveSheet.Columns(1).Find(what:="", lookat:=xlWhole, searchdirection:=xlPrevious).Row, , "ֹУ"
    
    'ָвĳַһγֵкšֵкšʼк=кţ˵ֻ1
    MsgBox ActiveSheet.Rows(1).Find(what:="", lookat:=xlWhole).Column, , "ʼкţ"
    MsgBox ActiveSheet.Rows(1).Find(what:="", lookat:=xlWhole, searchdirection:=xlPrevious).Column, , "кţ"
   
End Sub

Sub Test()
    Dim L1,L2 As Integer
    Dim Sh As String
    Sh = "zyg"

    L1 = Sheets(Sh).Rows(1).Find(what:="ѧ", lookat:=xlWhole).Column 'ָָĿֵʼк   
    L2 = Sheets(Sh).Rows(1).Find(what:="ѧ", lookat:=xlWhole, searchdirection:=xlPrevious).Column  'ָָĿֵֹк
    MsgBox L1
    MsgBox L2
    'L1=L2˵һֻһҪĿĿ
End Sub
